From 70b5f661347522b7b8d01f3f1ddfda29fcf0558b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 1 Jul 2013 05:00:50 +0000 Subject: [PATCH] wid-edit.el (widget-default-get): Don't modify widget (Bug#14738) --- lisp/ChangeLog | 4 ++++ lisp/wid-edit.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b5c8ba3465..007ca265759 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-01-07 Katsumi Yamaoka + + * wid-edit.el (widget-default-get): Don't modify widget (Bug#14738). + 2013-07-01 Juanma Barranquero * desktop.el (desktop-restore-frames): Rename from desktop-save-windows. diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index fb62b039d79..2dc1e502171 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -528,6 +528,7 @@ Otherwise, just return the value." (or (widget-get widget :value) (progn (when (widget-get widget :args) + (setq widget (widget-copy widget)) (let (args) (dolist (arg (widget-get widget :args)) (setq args (append args -- 2.30.2